home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013a.dsk / HIRES MOVIE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  71 lines
  1. 10  HOME : HGR 
  2. 20  PRINT  CHR$(4);"BLOAD PICDRAW"
  3. 30 A$ = "JONES": GOSUB 1000
  4. 40  CALL 36400
  5. 50  VTAB 22: HTAB 10: PRINT "HI-RES MOVIE PART I"
  6. 60  VTAB 24: PRINT "ALWAYS HIT A KEY TO GO ON. ";: GET Z$
  7. 70  HOME : TEXT 
  8. 80  VTAB 2: HTAB 13: PRINT "QUEST FOR HONOR"
  9. 90  PRINT : PRINT : PRINT  TAB( 16);"STARRING"
  10. 95  PRINT 
  11. 100  PRINT : PRINT  TAB( 5);"HARRISON"; TAB( 16);"TOSHIRO"; TAB( 28);"CHRISTOPHER"
  12. 110  PRINT  TAB( 7);"FORD"; TAB( 17);"MIFUNE"; TAB( 32);"LEE"
  13. 120  PRINT : PRINT  TAB( 8);"AS"; TAB( 19);"AS"; TAB( 32);"AS"
  14. 125  PRINT 
  15. 130  PRINT  TAB( 5);"INDIANA"; TAB( 16);"PROFESSOR"; TAB( 31);"LORD"
  16. 140  PRINT  TAB( 6);"JONES"; TAB( 18);"AOKI"; TAB( 30);"SHIGEN"
  17. 145  PRINT 
  18. 150  PRINT : PRINT : PRINT "PRODUCER : SAMUEL CHIANG"
  19. 160  PRINT : PRINT "DIRECTOR : KENNETH CHIANG"
  20. 170  PRINT : PRINT "SPECIAL EFFECTS : GRAPHICS MAGICIAN BY  CHRIS JOCHUMSON,DAVID LUBAR, AND MARK   PELCZARSKI. PENGUIN SOFTWARE ";: GET Z$
  21. 180  HOME : HTAB 16: PRINT "PROLOGUE"
  22. 190  PRINT : PRINT : PRINT "HAVING RECIEVED AN URGENT MESSAGE PLEAD-ING FOR HELP FROM HIS OLD FRIEND AND    FORMER INSTRUCTOR, PROFESSOR AOKI,      INDIANA JONES HEADS FOR JAPAN!";: GET Z$
  23. 200  HGR 
  24. 210 A$ = "A1": GOSUB 1000
  25. 220  CALL 36400
  26. 225  HOME 
  27. 230  VTAB 21: PRINT "AOKI : INDIANA YOU ARE MY FINAL HOPE.         THE EVIL LORD SHIGEN HAS KIDNAPPED      MY DAUGHTER. CAN YOU HELP ME?"
  28. 240  PRINT "JONES : I'LL DO WHAT I CAN PROFESSOR.";: GET Z$
  29. 250  HOME : VTAB 21: PRINT "AOKI : YOU MUST BE VERY CAREFUL, SHIGEN        IS A VERY POWERFUL AND TREACH-          EROUS SAMURAI. HE EVEN SUPPLIES         THE NAZIS WITH ADVANCED WEAPONS.";: GET Z$
  30. 260  HOME : VTAB 21: PRINT "JONES : DON'T WORRY PROFESSOR. I ALWAYS         HAVE A PLAN!";: GET Z$
  31. 270  HOME :A$ = "A2": GOSUB 1000: CALL 36400
  32. 280  VTAB 21: PRINT "AS INDIANA JONES GETS READY TO GO TO    LORD SHIGEN'S MOUNTAIN RETREAT, A STICK OF DYNAMITE IS THROWN INTO HIS ROOM.";: GET Z$
  33. 290  HOME : VTAB 21: PRINT "INDIANA JONES, MOVING WITH BLAZING SPEEDGRABS THE DYNAMITE AND THROWS IT OUT    THE WINDOW.";: GET Z$
  34. 300  HOME :A$ = "A2.5": GOSUB 1000: CALL 36400
  35. 310  PRINT  CHR$(4);"BLOAD DYN.ANM"
  36. 320  CALL 37284
  37. 330 X = 0
  38. 340  CALL 36928
  39. 350 X = X +1
  40. 360  IF X > = 95  THEN 380
  41. 370  GOTO 340
  42. 380  PRINT  CHR$(4);"BLOAD PICDRAW"
  43. 390 A$ = "DYN": GOSUB 1000: CALL 36405
  44. 400  VTAB 21: PRINT "HE THEN RENTS A JEEP AND HEADS FOR      SHIGEN'S RETREAT";: GET Z$
  45. 410  HOME :A$ = "A3": GOSUB 1000: CALL 36400
  46. 420  VTAB 21: PRINT "INDIANA JONES IS DRIVING ON A NARROW    MOUNTAIN ROAD WHEN SUDDENLY...";: GET Z$
  47. 430  HOME :A$ = "A4": GOSUB 1000: CALL 36400
  48. 440  VTAB 21: PRINT "A SHOT RIPS THROUGH A TIRE. LOSING      CONTROL, THE JEEP GOES OVER THE CLIFF.";: GET Z$
  49. 450  HOME :A$ = "A5": GOSUB 1000: CALL 36400
  50. 460  PRINT  CHR$(4);"BLOAD JEEP.ANM"
  51. 470  CALL 37284
  52. 480 X = 0
  53. 490  CALL 36928
  54. 500 X = X +1
  55. 510  IF X > = 55  THEN 531
  56. 520  FOR I = 1 TO 20: NEXT I
  57. 530  GOTO 490
  58. 531  PRINT  CHR$(4);"BLOAD PICDRAW"
  59. 532 A$ = "JFIRE": GOSUB 1000: CALL 36405
  60. 540  VTAB 21: PRINT "TO BE CONTINUED...";: GET Z$
  61. 545  SPEED= 100
  62. 550  HOME : TEXT : VTAB 5: PRINT "IS INDIANA JONES DEAD???"
  63. 560  VTAB 10: PRINT "WILL SHIGEN'S REIGN OF TERROR PERSIST???"
  64. 570  VTAB 15: PRINT "THE ANSWERS TO THESE AND OTHER QUESTIONSWILL BE ANSWERED NEXT MONTH!!!"
  65. 580  VTAB 20: PRINT "SAME TIME... SAME PLACE..."
  66. 590  SPEED= 255
  67. 600  FOR I = 1 TO 3000: NEXT : PRINT  CHR$(4);"RUN KICK.IT.OFF"
  68. 1000  POKE 36352,24576 - INT(24576/256) *256
  69. 1010  POKE 36353, INT(24576/256)
  70. 1020  PRINT : PRINT  CHR$(4);"BLOAD ";A$;".SPC,A24576"
  71. 1030  RETURN